;; supercollider/output.scm - (c) rohan drape, 2003-2005

;; An <output> represents a UGen output signal in a UGen graph, an
;; 'Output Specification'.  The binary represntation is a one byte
;; byte network order integer.

(define-structure output (calculation-rate))

(define (output-read port)
  (make-output (read-int8 port)))

(define (output-write s port)
  (write-int8 (output-calculation-rate s) port))

(define (output-encode s)
  (encode-int8 (output-calculation-rate s)))
